home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / RouteMap.zprx < prev    next >
Text File  |  1994-11-02  |  2KB  |  71 lines
  1. /* $VER: RouteMap.zprx 1.31 (01.03.94) · by M.Pietz
  2.  
  3.    ARexx-Skript für Zpoint >=V37.121 & RouteMap3.0
  4.    erstellt von Markus Pietz (M_PIETZ@HOT.GUN.DE)
  5.  
  6.    Mit diesem Script kann man aus dem Programm ZPoint
  7.    über ARexx das Programm RouteMap steuern.
  8.  
  9.    Das Skript kümmert um den Aufruf von RouteMap. Wenn das
  10.    Programm noch nicht läuft startet es dieses.
  11.    Was Sie machen müssen, ist RouteMap und seine Hilfdateien
  12.    in ein Verzeichnis kopieren und den Pfad unten eintragen.
  13.    Dann dieses Skript unter dem Namen "RouteMap.zprx" in das Verzeichnis
  14.    "Rexx/", das sich im aktuelles Verzeichnis von ZPoint befindet, auslagern.
  15.    In der Datei 'fkeys.zp' dieses Script auf eine Funktionstaste legen.
  16.    z.b.:
  17.    F1:sys:rexxc/rx Work:ZPoint/Rexx/RouteMap.zprx %s
  18. */
  19.  
  20. /* Strings als Rückgabewerte zulassen */
  21. options results
  22. /* Name des ARexxports/PubScreens von ZPoint auslesen */
  23. parse arg ZPScreen
  24.  
  25. /* Verzeichnis wo RouteMap3 ist */
  26. /* Am Ende '/' oder ':' nicht vergessen ! */
  27. Path = 'DH2:RouteMap/'
  28. /* Name des Programms */
  29. File = 'RouteMap3'
  30. /* Übergabeparamter nach belieben */
  31. Parameter = 'NOCOMMODITY WINTOFRONT NOICON PATH='|| Path 'PUBSCREEN='||ZPScreen
  32. /* Error Strings */
  33. str = "Konnte das Programm RouteMap nicht finden."'0a'x"Überprüfen Sie bitte die Konfiguration:"
  34. str2= '0a'x "Pfad: "Path '0a'x "Filename: "File
  35.  
  36. /* akt. Port ist ZPoint */
  37. address VALUE ZPScreen
  38.  
  39. /* RouteMap starten, falls es noch nicht läuft */
  40. if show("p","RouteMap_REXX")=0 then do
  41.   if exists(Path||File) then do
  42.     /* RouteMap Programm starten */
  43.     address command 'run >NIL:' Path||File Parameter
  44.  
  45.     /* Warten das RouteMap seinen ARexx-Port geöffnet hat */
  46.     /* 'WaitForPort' wartet 10 sec darauf, das */
  47.     /*  der Port 'RouteMap_REXX' geöffnet wird */
  48.     address command 'SYS:REXXC/WaitforPort RouteMap_REXX'
  49.  
  50.     if show("p","RouteMap_REXX")=0 then do
  51.       RequestNotify 'Konnte RouteMap nicht starten'
  52.       exit
  53.     end
  54.   end
  55.   else do
  56.     /* OUPS ! Konnte das Programm nicht finden */
  57.     /* Fehlermeldung ausgeben */
  58.     RequestNotify str || str2
  59.     exit    /* Und Schluß */
  60.   end
  61. end
  62.  
  63. /* Routestring zur akt. Nachricht */
  64. MESSAGEINFO ROUTE
  65. route = RESULT
  66.  
  67. /* Route anzeigen */
  68. address VALUE 'RouteMap_REXX'
  69. DrawRoute route
  70. /*ShowInfo*/
  71.